<%@ Language=VBScript %> <%If session("agentusername")="" Then ef=True ec="授权非法，有可能是超时造成的。" end if if not ef then Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsreg = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_AGENT where username='"&session("agentusername")&"'" if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then Response.Write "非法字符！" Response.End end if dsreg.Open Sql,conn,1,1 If dsreg.Eof Then ef=True ec="代理会员名不存在或密码出错了！" end if end if if not ef then session("agentusermoney")=dsreg("usermoney") Set dsmoney = Server.CreateObject("ADODB.Recordset") ' Sql="Select * from FreeHost.FreeHost_moneylog where norusername='"&session("agentusername")&"' or agnusername='"&session("agentusername")&"' or agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"' order by id desc" Sql="Select * from FreeHost.FreeHost_moneylog where (opusername='"&session("agentusername")&"' or agnusername='"&session("agentusername")&"' or agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and isnew='y' and isdel is null order by id desc" 'if Request.QueryString ("op") ="all" then Sql="Select * from FreeHost.FreeHost_Product_Host order by id desc" 'if Request.QueryString ("op") ="pause" then Sql="Select * from FreeHost.FreeHost_Product_Host where endtime<'"&now&"' order by endtime desc" 'if Request.QueryString ("op") ="del" then Sql="Select * from FreeHost.FreeHost_Product_Host where endtime<'"&dateadd("d",-30,now)&"' order by endtime desc" If IsDate(Request("starttime")) And IsDate(Request("endtime")) Then sql=Replace(sql," order by id desc"," and attime>'"&Request("starttime")&"' and attime<'"&Request("endtime")&"' order by id desc") If Request("isadd")="y" Then sql=Replace(sql," order by id desc"," and isadd='y' order by id desc") If Request("isadd")="n" Then sql=Replace(sql," order by id desc"," and isadd='n' order by id desc") dsmoney.PageSize = 25 If Request("PageSize")<>"" and isnumeric(Request("PageSize")) then dsmoney.PageSize =Request("PageSize") dsmoney.Open Sql,conn,1,1 %> <%session("FreeHostCom").FreeHost_WR("html5")%> 　财务管理 <%session("FreeHostCom").FreeHost_WR("html6")%>
您当前的可用金额：<%if session("agentusermoney")<1 and session("agentusermoney")>0 then%>0<%end if%><%=session("agentusermoney")%> 元 <% if dsmoney.Eof then %>
数据库中不存在款项操作记录。 <% else if Request.ServerVariables("QUERY_STRING")<>"" then ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn") else ask=Split("freehost=1", "") ask(0)="freehost=lsoft" end if pn=1 if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn") If dsmoney.RecordCount <> 0 Then dsmoney.AbsolutePage = CLng(pn) if clng(pn)<=10 then begini=1 if dsmoney.PageCount<=10 then endini=dsmoney.PageCount else endini=10 end if end if %> <%if clng(pn)<=10 then%>最新 <%for i=begini to endini if clng(pn)=i then%>[<%=i%>]<%else%>[<%=i%>]<%end if%>　<%next%> <%else%>　最新[1]--[10]　　现在是第[<%=pn%>]页　共<%=dsmoney.PageCount%>页　<%end if%><%If Clng(pn)>1 Then%>上一页<%End If%>|<%If Clng(pn)下一页<%End If%> <% addcount=0 decount=0 For N=1 To dsmoney.PageSize If dsmoney.RecordCount=0 Then Exit For %> <%if not (instr(dsmoney("forwhat"),"子代理返回的收入")>0 and dsmoney("opusername")=session("agentusername")) then%> <%if not (instr(dsmoney("forwhat"),"子代理返回的收入")>0 and dsmoney("username")<>session("agentusername") and dsmoney("opusername")<>dsmoney("agent1") ) then%> <%if not isnull(dsmoney("agnEndmoney")) then'2009-6-8%> <%end if%> <%end if%> <%end if%> <% If clng(pn)=dsmoney.PageCount Then I = dsmoney.RecordCount - (dsmoney.PageCount-1) * dsmoney.PageSize If N=I Then Exit For End If dsmoney.movenext Next%>

时间	增加	减少	余额	用户/代理	类别/操作人	原因
<%=dsmoney("attime")%>	<%if dsmoney("isadd")="y" then addcount=addcount+(dsmoney("usermoney")) %> "><%=replace(formatCurrency(dsmoney("usermoney"),2,-1),".00","")%> 元 <%end if%>	<%if not dsmoney("isadd")="y" then decount=decount+(dsmoney("usermoney")) %> "><%=replace(formatCurrency(dsmoney("usermoney"),2,-1),".00","")%> 元 <%end if%>	<%=dsmoney("agnEndmoney")%> 元	"><%=dsmoney("norusername")%> <%if dsmoney("isagn")="y" then%> ">(<%=dsmoney("agnusername")%>) <%end if%><%if session("agenttype")="子代理" and dsmoney("agent1")<>session("agentusername") then%>/UP<%else%> <%if dsmoney("agent1")<>"" and dsmoney("agent1")<>session("agentusername") then%>">(<%=dsmoney("agent1")%>)<%end if%><%end if%>	"> <%if session("agenttype")="子代理" and dsmoney("agent1")<>session("agentusername") then%>UP<%else%><%=dsmoney("atspace")%><%end if%><%if dsmoney("ishand")="y" then%>手工<%end if%>	"><%=dsmoney("forwhat")%>
本页总计	<%=replace(formatCurrency(abs(addcount),2,-1),".00","")%> 元	<%=replace(formatCurrency(abs(decount),2,-1),".00","")%> 元	"> ">

<% end if dsmoney.close set dsmoney=nothing%>
<%If Application("agentcannetpay")=True And dsreg("canusenetpay")=true Then%>

　您可以设置自己的网上支付接口，设置后就不需要使用主站管理员的接口，
　当您的名下用户通过您的接口支付时，钱会直接到您的财付通或支付宝帐上，
　如果您在主机系统中的金额足够，系统就会自动将您在主机系统中的钱转移给名下用户，
　如果您主机系统中的金额不足，系统就会在将此金额显示为＂等待入帐＂的金额，您可以手工再为用户入帐．
　如果您设置后想恢复用主站管理员的接口，只需要将下面所有的参数都设置为空就可以了．

　　 支付宝网上支付部分，支付网址为：http://服务域名/netpay/alipay/
　支付宝账户： " size="20">

　　　财付通网上支付部分，支付网址为：http://服务域名/netpay/tenpay/
　商户号： " size="20" />
　支付密钥： " size="20" />

<%if Request.ServerVariables("HTTP_FreeHostAPI")<>"7i24.com" Then%> 　 ChinaBank网上支付部分，支付网址为：http://服务域名/netpay/chinabank/
　网银店铺编号： " size="20">
　网银私　　钥： " size="20">

<%End if%> 　　

<%end if%>

<%session("FreeHostCom").FreeHost_WR("html7")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>